home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / mee / vbdao / visdata / seek.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-06  |  4.4 KB  |  159 lines
  1. VERSION 2.00
  2. Begin Form fSeek 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Seek Parameters"
  6.    ClientHeight    =   1455
  7.    ClientLeft      =   1440
  8.    ClientTop       =   2595
  9.    ClientWidth     =   4335
  10.    Height          =   1860
  11.    Left            =   1380
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   1455
  14.    ScaleWidth      =   4335
  15.    Top             =   2250
  16.    Width           =   4455
  17.    Begin CommandButton CancelBtn 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "&Cancel"
  20.       Height          =   375
  21.       Left            =   2520
  22.       TabIndex        =   8
  23.       Top             =   960
  24.       Width           =   1215
  25.    End
  26.    Begin CommandButton OKBtn 
  27.       Caption         =   "&OK"
  28.       Default         =   -1  'True
  29.       Height          =   375
  30.       Left            =   600
  31.       TabIndex        =   7
  32.       Top             =   960
  33.       Width           =   1215
  34.    End
  35.    Begin OptionButton cSeekOp 
  36.       BackColor       =   &H00C0C0C0&
  37.       Caption         =   "="
  38.       ForeColor       =   &H00000000&
  39.       Height          =   255
  40.       Index           =   0
  41.       Left            =   1080
  42.       TabIndex        =   5
  43.       Top             =   120
  44.       Value           =   -1  'True
  45.       Width           =   495
  46.    End
  47.    Begin OptionButton cSeekOp 
  48.       BackColor       =   &H00C0C0C0&
  49.       Caption         =   ">="
  50.       ForeColor       =   &H00000000&
  51.       Height          =   255
  52.       Index           =   1
  53.       Left            =   1680
  54.       TabIndex        =   4
  55.       TabStop         =   0   'False
  56.       Top             =   120
  57.       Width           =   615
  58.    End
  59.    Begin OptionButton cSeekOp 
  60.       BackColor       =   &H00C0C0C0&
  61.       Caption         =   "<="
  62.       ForeColor       =   &H00000000&
  63.       Height          =   255
  64.       Index           =   2
  65.       Left            =   2400
  66.       TabIndex        =   3
  67.       TabStop         =   0   'False
  68.       Top             =   120
  69.       Width           =   615
  70.    End
  71.    Begin OptionButton cSeekOp 
  72.       BackColor       =   &H00C0C0C0&
  73.       Caption         =   ">"
  74.       ForeColor       =   &H00000000&
  75.       Height          =   255
  76.       Index           =   3
  77.       Left            =   3120
  78.       TabIndex        =   2
  79.       TabStop         =   0   'False
  80.       Top             =   120
  81.       Width           =   495
  82.    End
  83.    Begin OptionButton cSeekOp 
  84.       BackColor       =   &H00C0C0C0&
  85.       Caption         =   "<"
  86.       ForeColor       =   &H00000000&
  87.       Height          =   255
  88.       Index           =   4
  89.       Left            =   3720
  90.       TabIndex        =   1
  91.       TabStop         =   0   'False
  92.       Top             =   120
  93.       Width           =   495
  94.    End
  95.    Begin TextBox cSeekValue 
  96.       Height          =   285
  97.       Left            =   1080
  98.       TabIndex        =   0
  99.       Tag             =   "OLS"
  100.       Top             =   480
  101.       Width           =   3135
  102.    End
  103.    Begin Label ValLabel 
  104.       BackColor       =   &H00C0C0C0&
  105.       Caption         =   "Value:"
  106.       Height          =   255
  107.       Left            =   120
  108.       TabIndex        =   9
  109.       Top             =   480
  110.       Width           =   735
  111.    End
  112.    Begin Label OpLabel 
  113.       BackColor       =   &H00C0C0C0&
  114.       Caption         =   "Operator:"
  115.       Height          =   255
  116.       Left            =   120
  117.       TabIndex        =   6
  118.       Top             =   120
  119.       Width           =   855
  120.    End
  121. Sub CancelBtn_Click ()
  122.   gstSeekValue = NULL_STR
  123.   cSeekValue.SetFocus
  124.   Me.Hide
  125. End Sub
  126. Sub cSeekOp_Click (Index As Integer)
  127.   cSeekValue.SetFocus
  128. End Sub
  129. Sub cSeekValue_Change ()
  130.   If Len(cSeekValue) = 0 Then
  131.     OKBtn.Enabled = False
  132.   Else
  133.     OKBtn.Enabled = True
  134.   End If
  135. End Sub
  136. Sub Form_Load ()
  137.   Left = (Screen.Width - Width) / 2
  138.   Top = (Screen.Height - Height) / 2
  139. End Sub
  140. Sub Form_Paint ()
  141.   Outlines Me
  142. End Sub
  143. Sub OKBtn_Click ()
  144.   If cSeekOp(0) = True Then
  145.     gstSeekOperator = "="
  146.   ElseIf cSeekOp(1) = True Then
  147.     gstSeekOperator = ">="
  148.   ElseIf cSeekOp(2) = True Then
  149.     gstSeekOperator = "<="
  150.   ElseIf cSeekOp(3) = True Then
  151.     gstSeekOperator = ">"
  152.   ElseIf cSeekOp(4) = True Then
  153.     gstSeekOperator = "<"
  154.   End If
  155.   gstSeekValue = cSeekValue
  156.   cSeekValue.SetFocus
  157.   Me.Hide
  158. End Sub
  159.